home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 7
/
Apprentice-Release7.iso
/
Environments
/
Small Eiffel 0.4.8
/
lib_rand
/
demo2.e
< prev
next >
Wrap
Text File
|
1997-04-13
|
582b
|
32 lines
-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
--
class DEMO2
creation make
feature
make is
local
std_rand: MIN_STAND;
count: INTEGER;
do
io.put_string("Using the MIN_STAND random number generator.%N%
%How many numbers ? ");
io.read_integer;
count := io.last_integer;
from
!!std_rand.make;
until
count = 0
loop
std_rand.next;
io.put_real(std_rand.last_real);
count := count - 1;
io.put_string("%N");
end;
end;
end -- DEMO2